function [ percent_win,profit_factor,percent_lose,TotalOperaciones ] = percentwin( output_balance )
%% las ganadoras entre el total
TotalOperaciones=0;
win=0;
lose=0;
Ganancias=0;
Perdidas=0;
for dia=1:length(output_balance)-1
    if output_balance(dia,1)<output_balance(dia+1,1)%gana
        win=win+1;
        TotalOperaciones=TotalOperaciones+1;        
        Ganancias=(output_balance(dia+1,1)-output_balance(dia,1))+Ganancias;

    end
    if output_balance(dia,1)>output_balance(dia+1,1)%pierde
        lose=lose+1;
        TotalOperaciones=TotalOperaciones+1;  
        Perdidas=(output_balance(dia,1)-output_balance(dia+1,1))+Perdidas;
    end
end
percent_win=win/TotalOperaciones;
percent_lose=lose/TotalOperaciones;
profit_factor=Ganancias/Perdidas;


